home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 November
/
Ahoy_Magazine_86-11_1986_Double_L.d64
/
Rep. Comp. 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
372b
|
12 lines
0 print"[147][144]":poke53280,6:poke53281,1
1 print" commodares....repeated compression #3 ":print:print
2 rem repeated compression
3 rem solution by
4 rem gary hudach
5 rem
10 u$=chr$(145):inputa$:b$=chr$(32)+a$:printu$" "b$:fort=2tolen(b$)
20 ifmid$(b$,t,1)=mid$(b$,t-1,1)thenprintu$spc(t)chr$(32):forx=1to200:next
30 ifmid$(b$,t,1)<>mid$(b$,t-1,1)thenc$=c$+mid$(b$,t,1)
40 next:fora=1tolen(c$):printu$spc(a)mid$(c$,a,1)
50 forb=len(c$)tolen(b$):printu$spc(1+b)chr$(32):nextb,a